home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 10-17.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  599 b   |  40 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DIM Arrow AS STRING*12
  6.  
  7. DATA 6,1,9,2,2,9,1,19,7,2,8,1
  8.  
  9. IF FGtestmode(4,1) = 0 THEN
  10.    PRINT "This program requires a 320 x 200 CGA graphics mode."
  11.    STOP
  12. END IF
  13.  
  14. FOR I = 1 TO 12
  15.    READ Item
  16.    MID$(Arrow,I) = CHR$(Item)
  17. NEXT
  18.  
  19. OldMode = FGgetmode
  20. FGsetmode 4
  21. FGsetclip 0, 15, 0, 199
  22.  
  23. FGsetcolor 3
  24. FGrect 0, 319, 0, 199
  25.  
  26. FGmove 10, 10
  27. FGdrawmask Arrow, 12, 10
  28. FGmove 10, 20
  29. FGclipmask Arrow, 12, 10
  30. FGmove 10, 30
  31. FGrevmask Arrow, 12, 10
  32. FGmove 10, 40
  33. FGflipmask Arrow, 12, 10
  34. FGwaitkey
  35.  
  36. FGsetmode OldMode
  37. FGreset
  38.  
  39. END
  40.